sub main()	dim s as string, value as string	dim a as list
	s = "jose,cuevas,1,2,3,\"garcia,hello\","
	a = s.CSVStrToArray()	foreach value in a
		msgbox("Value is [" & value & "]")
	next
	msgbox("Test done")end sub